10 TB=4096
100 FORAN=0TO2*(null)STEP2*(null)/256
200 Y=SIN(AN)*255+.5
300 POKETB,YAND255
400 X=0:IFY<0THENX=255
500 POKETB+256,X
600 TB=TB+1:NEXT